#!/usr/bin/perl

open (IN,  "< test") or die "test nicht vorhanden";
open (OUT, ">> testout") or die "kann testout nicht anlegen";

while ($a = <IN>) {
        print OUT "Ausgabe: " . $a;
}
close (IN);
close (OUT);
